Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Monitor  Physical  Disk  Performance  

 Content of Monitor Physical Disk Performance.vbs
MD5 Hash: 7F62AA6E847DD626BA2A84F7427B42A2
' Description: Uses cooked performance counters to monitor physical disk performance.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
(objWMIService, "Win32_PerfFormattedData_PerfDisk_PhysicalDisk").objectSet
objRefresher.Refresh

For i = 1 to 5
For Each objItem in colItems
Wscript.Echo "Average Disk Bytes Per Read: " & _
objItem.AvgDiskBytesPerRead
Wscript.Echo "Average Disk Bytes Per Transfer: " & _
objItem.AvgDiskBytesPerTransfer
Wscript.Echo "Average Disk Bytes Per Write: " & _
objItem.AvgDiskBytesPerWrite
Wscript.Echo "Average Disk Queue Length: " & objItem.AvgDiskQueueLength
Wscript.Echo "Average Disk Read Queue Length: " & _
objItem.AvgDiskReadQueueLength
Wscript.Echo "Average Disk Seconds Per Read: " & _
objItem.AvgDisksecPerRead
Wscript.Echo "Average Disk Seconds Per Transfer: " & _
objItem.AvgDisksecPerTransfer
Wscript.Echo "Average Disk Seconds Per Write: " & _
objItem.AvgDisksecPerWrite
Wscript.Echo "Average Disk Write Queue Length: " & _
objItem.AvgDiskWriteQueueLength
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Current Disk Queue Length: " & _
objItem.CurrentDiskQueueLength
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disk Bytes Per Second: " & objItem.DiskBytesPersec
Wscript.Echo "Disk Read Bytes Per Second: " & _
objItem.DiskReadBytesPersec
Wscript.Echo "Disk Reads Per Second: " & objItem.DiskReadsPersec
Wscript.Echo "Disk Transfers Per Second: " & _
objItem.DiskTransfersPersec
Wscript.Echo "Disk Write Bytes Per Second: " & _
objItem.DiskWriteBytesPersec
Wscript.Echo "Disk Writes Per Second: " & objItem.DiskWritesPersec
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Percent Disk Read Time: " & objItem.PercentDiskReadTime
Wscript.Echo "Percent Disk Time: " & objItem.PercentDiskTime
Wscript.Echo "Percent Disk Write Time: " & objItem.PercentDiskWriteTime
Wscript.Echo "Percent Idle Time: " & objItem.PercentIdleTime
Wscript.Echo "Split I/O Per Second: " & objItem.SplitIOPerSec
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a